home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_26182_MoveGaugeCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  770 b   |  25 lines
  1. global PgCt,Bname,tct
  2. if there is a fld "pageno" then put fld "pageNo" into op
  3. else put 1 into op
  4. put number of cds in bg "details" into PgCt
  5. put PgCt/340 into R
  6. put (clickh()-left of window "gauge") into aC
  7. put round (aC*R) into pN
  8. if pN<1 then put 1 into pN
  9. if pN>PgCt then put PgCt into pN
  10. if there is a fld "pageno" then put pN into fld "pageno"
  11. set scroll of window gauge to 340-aC&",0"
  12. repeat until mouse()="up"
  13. put mouseh()-left of window "gauge" into aC
  14. put round (aC*R) into pN
  15. if pN<1 then put 1 into pN
  16. if pN>PgCt then put PgCt into pN
  17. set scroll of window gauge to 340-aC&",0"
  18. if there is a fld "pageno" then put pN into fld "pageno"
  19. end repeat
  20. LS
  21. LM true
  22. cbusy
  23. addtort tStr("LibMsg",20)&& op
  24. go cd pN of bg "details" of stack Bname
  25. send opencard to this cd